home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / LISTBOX / TFRAME / FLIST.PAS next >
Pascal/Delphi Source File  |  1996-05-11  |  825b  |  40 lines
  1. unit qlist;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TFrameList = class(TListBox)
  11.   private
  12.     { Private declarations }
  13.   protected
  14.     { Protected declarations }
  15.     procedure CreateParams(var Params: TCreateParams); override;
  16.   public
  17.     { Public declarations }
  18.   published
  19.     { Published declarations }
  20.     property Caption;
  21.   end;
  22.  
  23. procedure Register;
  24.  
  25. implementation
  26.  
  27. procedure Register;
  28. begin
  29.   RegisterComponents('The Toolbox', [TFrameList]);
  30. end;
  31.  
  32. procedure TFrameList.CreateParams;
  33. begin
  34.   inherited CreateParams(Params);    { call the inherited first }
  35.   with Params do Style := Style or WS_CAPTION or WS_SIZEBOX    ;    { add a style flag }
  36.   with Params do ExStyle := ExStyle or WS_EX_TOOLWINDOW;
  37. end;
  38.  
  39. end.
  40.